home *** CD-ROM | disk | FTP | other *** search
/ CinE CD 6 / CinE CD ROM 06.iso / mac / Shared.Cst / 00107_Script_107 < prev    next >
Text File  |  1996-06-22  |  665b  |  25 lines
  1. on highlight spritenum, script_to_execute
  2.   set actor = the mousecast
  3.   set flag = 0
  4.   
  5.   set the castnum of sprite spritenum = actor + 1
  6.   updatestage
  7.   repeat while rollover (spritenum)
  8.     if the mousedown then
  9.       --set the castnum of sprite spritenum = actor + 2
  10.       --updatestage
  11.       repeat while the mousedown
  12.         if not rollover (spritenum) then exit repeat
  13.       end repeat
  14.       if rollover (spritenum) then
  15.         set flag = 1
  16.         puppetsound "Single Click"
  17.       end if
  18.       exit repeat
  19.     end if
  20.   end repeat
  21.   set the castnum of sprite spritenum = actor
  22.   
  23.   updatestage
  24.   if flag then do script_to_execute
  25. end